home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / UCRASM25.ARJ / RMVCHAR.ASM < prev    next >
Assembly Source File  |  1991-10-12  |  577b  |  38 lines

  1. StdGrp        group    stdlib,stddata
  2. stddata        segment    para public 'sldata'
  3. stddata        ends
  4. ;
  5. stdlib        segment    para public 'slcode'
  6.         assume    cs:stdgrp
  7. ;
  8. ;
  9. ; RmvChar-    Removes a character from a set.
  10. ;
  11. ; inputs:
  12. ;
  13. ;    ES:DI-  Points at the set (at its mask byte).
  14. ;    AL-    Character to remove from the set.
  15. ;
  16. ;
  17. ;
  18.         public    sl_RmvChar
  19. ;
  20. sl_RmvChar    proc    far
  21.         push    ax
  22.         push    bx
  23. ;
  24.         mov    bl, al
  25.                 mov    bh, 0
  26.         mov    al, es:[di]        ;Get mask byte
  27.         not    al
  28.         and    es:8[di][bx], al    ;Add to set
  29. ;
  30.         pop    bx
  31.         pop    ax
  32.         ret
  33. sl_RmvChar    endp
  34. ;
  35. ;
  36. stdlib        ends
  37.         end
  38.